home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 23 / Amiga Format AFCD23 (Feb 1998, Issue 107).iso / +look_here_1st!+ / reader_requests / alienbreed3d2 / cheesesauce / tstmus < prev    next >
Text File  |  1997-11-28  |  3KB  |  239 lines
  1.  
  2.  section scrn,code
  3.  
  4.  
  5. INTREQ    equ    $09C
  6. INTENA    equ    $09A
  7. INTENAR    equ    $01C
  8. DMACON    equ    $096
  9.  
  10. SERPER    equ    $032
  11. SERDATR    equ    $018
  12. SERDAT    equ    $030
  13. vhposr        equ $006    
  14. vhposrl        equ $007 
  15.  
  16. bltcon0        equ $40 
  17. bltcon1        equ $42
  18. bltcpt        equ $48
  19. bltbpt        equ $4c
  20. bltapt        equ $50
  21. spr0ctl        equ $142
  22. spr1ctl        equ $14a
  23. spr2ctl        equ $152
  24. spr3ctl        equ $15a
  25. spr4ctl        equ $162
  26. spr5ctl        equ $16a
  27. spr6ctl        equ $172
  28. spr7ctl        equ $17a
  29. spr0pos        equ $140
  30. spr1pos        equ $148
  31. spr2pos        equ $150
  32. spr3pos        equ $158
  33. spr4pos        equ $160
  34. spr5pos        equ $168
  35. spr6pos        equ $170
  36. spr7pos        equ $178
  37. bltdpt         equ $54
  38. bltafwm        equ $44
  39. bltalwm        equ $46
  40. bltsize         equ $58
  41. bltcmod         equ $60
  42. bltbmod         equ $62
  43. bltamod         equ $64
  44. bltdmod         equ $66
  45. diwstart        equ $8e         ; Screen hardware registers.
  46. diwstop         equ $90
  47. ddfstart        equ $92
  48. ddfstop         equ $94
  49. bplcon0         equ $100
  50. bplcon1         equ $102
  51. col0            equ $180
  52. col1            equ $182
  53. col2        equ $184
  54. col3        equ $186
  55. col4        equ $188
  56. col5        equ $18a
  57. col6        equ $18c
  58. col7        equ $18e
  59. col8            equ $190
  60. col9            equ $192
  61. col10           equ $194
  62. dmacon        equ $96
  63. dmaconr        equ $002
  64. intenar        equ $01c
  65. intena        equ $09a
  66. intreq        equ $09c
  67. intreqr        equ $01e
  68. intreqrl    equ $01f
  69. bpl1pth         equ $e0
  70. bpl1ptl         equ $e2
  71. bpl2pth        equ $e4
  72. bpl2ptl        equ $e6
  73. bpl3pth        equ $e8
  74. bpl3ptl        equ $ea
  75. bpl4pth        equ $ec
  76. bpl4ptl        equ $ee
  77. bpl5pth        equ $f0
  78. bpl5ptl        equ $f2
  79. bpl6pth        equ $f4
  80. bpl6ptl        equ $f6
  81. bpl7pth        equ $f8
  82. bpl7ptl        equ $fa
  83. bpl8pth        equ $fc
  84. bpl8ptl        equ $fe
  85. spr0pth        equ $120
  86. spr0ptl        equ $122
  87. spr1pth        equ $124
  88. spr1ptl        equ $126
  89. spr2pth        equ $128
  90. spr2ptl        equ $12a
  91. spr3pth        equ $12c
  92. spr3ptl        equ $12e
  93. spr4pth        equ $130
  94. spr4ptl        equ $132
  95. spr5pth        equ $134
  96. spr5ptl        equ $136
  97. spr6pth        equ $138
  98. spr6ptl        equ $13a
  99. spr7pth        equ $13c
  100. spr7ptl        equ $13e
  101.  
  102.  
  103.  
  104. stt:
  105.  
  106.  jsr stuff
  107.  
  108.  move.w #$20,$dff1dc
  109.  move.l #blankcop,$dff080
  110.  
  111.  jsr _InitPlayer
  112.  
  113.  move.l #MUSNAME,a0
  114.  jsr _LoadModule
  115.  move.l d0,MUSADDR
  116.  
  117.  move.l d0,a0
  118.  jsr _InitModule
  119.  
  120.  move.l MUSADDR,a0
  121.  jsr _PlayModule
  122.   
  123. wt:
  124.  btst #6,$bfe001
  125.  bne.s wt
  126.  
  127.  jsr _StopPlayer
  128.  
  129.  jsr _RemPlayer
  130.  
  131.  move.l MUSADDR,a0
  132.  jsr _UnLoadModule
  133.  
  134.  move.l old,$dff080
  135.  move.w #$f8e,$dff1dc
  136.      
  137.  rts
  138.  
  139. MUSADDR: dc.l 0
  140. MUSNAME: dc.b 'ab3:sounds/abreed3d.med',0
  141.  
  142.  even
  143.  
  144.  include 'ab3:source/loadmod.a'
  145.  include 'ab3:source/proplayer.a'
  146.  
  147. stuff:
  148.  
  149.     Lea    gfxname(pc),a1    
  150.     Moveq.l    #0,d0
  151.     Move.l    $4.w,a6    
  152.     Jsr    -$228(a6)
  153.     Move.l     d0,gfxbase
  154.     Move.l    d0,a6                Use As Base Reg
  155.     Move.l    34(a6),oldview
  156.     move.l 38(a6),old
  157.     rts
  158.  
  159. oldview: dc.l 0
  160. old: dc.l 0
  161. gfxbase: dc.l 0
  162.  
  163. gfxname dc.b "graphics.library",0
  164.  even
  165.  
  166.  section blah,code_c
  167.  
  168. blankcop:
  169.  
  170.  dc.w diwstart,$2c81    ; Top left corner of screen.
  171.  dc.w diwstop,$2cc1     ; Bottom right corner of screen.
  172.  dc.w ddfstart,$38      ; Data fetch start.
  173.  dc.w ddfstop,$b8       ; Data fetch stop.
  174.  
  175.  dc.w bplcon0,$6201
  176.  dc.w bplcon1
  177.  dc.w $0
  178.  
  179.  dc.w $106,$c40
  180.  
  181. TITLEPALCOP:
  182. val SET $180
  183.  REPT 32
  184.  dc.w val,0
  185. val SET val+2
  186.  ENDR 
  187.  dc.w $106,$2c40
  188. val SET $180
  189.  REPT 32
  190.  dc.w val,0
  191. val SET val+2
  192.  ENDR
  193.  
  194.  dc.w $108,0
  195.  dc.w $10a,0
  196.  
  197.  dc.w bpl1ptl
  198. ts1l:
  199.  dc.w 0
  200.  dc.w bpl1pth
  201. ts1h:
  202.  dc.w 0
  203.  
  204.  dc.w bpl2ptl
  205. ts2l:
  206.  dc.w 0
  207.  dc.w bpl2pth
  208. ts2h:
  209.  dc.w 0
  210.  
  211.  dc.w bpl3ptl
  212. ts3l:
  213.  dc.w 0
  214.  dc.w bpl3pth
  215. ts3h:
  216.  dc.w 0
  217.  
  218.  dc.w bpl4ptl
  219. ts4l:
  220.  dc.w 0
  221.  dc.w bpl4pth
  222. ts4h:
  223.  dc.w 0
  224.  
  225.  dc.w bpl5ptl
  226. ts5l:
  227.  dc.w 0
  228.  dc.w bpl5pth
  229. ts5h:
  230.  dc.w 0
  231.  
  232.  dc.w bpl6ptl
  233. ts6l:
  234.  dc.w 0
  235.  dc.w bpl6pth
  236. ts6h:
  237.  dc.w 0
  238.  
  239.  dc.w $ffff,$fffe